home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
pctchnqs
/
1991
/
number5
/
chkmem.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-03-25
|
263b
|
12 lines
PROGRAM chkmem;
{ Michael A. Covington, 1991 }
{ Reports amount of memory free. }
USES
WinTypes, WinProcs;
VAR
s: String;
BEGIN
Str(GetFreeSpace(0),s);
s := s + ' bytes free'#0;
MessageBox(GetActiveWindow,addr(s[1]),'Memory Check',0)
END.